home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / HSBASIC2.DMS / in.adf / HB2Examples1.3.Lha / Examples / Font / Font.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-14  |  563 b   |  24 lines
  1. DEFINT a-z
  2. ' A simple example to show PRINTing in a disk based font.
  3.  
  4. ''$include graphics.bh
  5. ''$include diskfont.bh
  6.  
  7. SUB InitTextAttr(T(1),FontName$,BYVAL Height,BYVAL style,BYVAL flags)
  8. POKEL VARPTR(T(0))+ta_Name%,SADD(FontName$+CHR$(0))
  9. t(ta_YSize\2)=Height
  10. POKEB VARPTR(T(0))+ta_Style,style
  11. POKEB VARPTR(T(0))+ta_Flags,flags
  12. END SUB
  13.  
  14. DIM TextAttr(4)
  15. LIBRARY OPEN "graphics.library"
  16. LIBRARY OPEN "diskfont.library"
  17. InitTextAttr TextAttr(),"helvetica.font",15,0,0
  18. font& = OpenDiskFont (VARPTR(TextAttr(0)))
  19. SetFont WINDOW (8), font&
  20. PRINT "Hello"
  21. PRINT "Bye!"
  22.  
  23.  
  24.